﻿Imports Runa.Core.ResourceManager

Public Class TextBox
    Inherits UIElementBase

    Public Property Text() As String

    Public Property Font() As FontObject
    Public Property Background() As Texture2DObject

    Public Sub New(ByVal g As Game)
        MyBase.New(g)
    End Sub

    Public Sub New(ByVal g As Game, ByVal name As String)
        MyBase.New(name, g)
    End Sub

    Public Overrides Sub Draw(gameTime As Microsoft.Xna.Framework.GameTime)
        Me.SpriteBach.Begin()
        Me.SpriteBach.Draw(Me.Background.Texutre, Me.Location, Color.White)

        Me.SpriteBach.End()
    End Sub

End Class